home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / business / ii738.zip / FORMS.DBT (.txt) < prev    next >
dBase/FoxBase/XBase/FoxPro Database File  |  1995-10-19  |  61KB  |  938 lines
  1. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  2.                     
  3.                     
  4.           PURCHASE ORDER           
  5.                     
  6.                      
  7. [issued by]
  8. [important]
  9. ~PAD(M_name,35)~ 
  10. Our purchase order number must      
  11. ~PAD(M_adr1,35)~ 
  12. appear on all invoices, cases,      
  13. ~PAD(M_adr2,35)~ 
  14. packing lists and correspondence.   
  15. ~PAD(M_adr3,35)~ 
  16.                                     
  17. [contact]
  18. [telephone]
  19. [order no.]
  20. [issue date]
  21. ~po->contact~ 
  22.  ~PAD(M_phone,14)~ 
  23.  ~padl(ltrim(str(po->(RECNO()))),7,"0")~         
  24.   ~pad(dtoc(po->issued),10)~      
  25. [customer no.]
  26. [cust. acct. no.]
  27.            [issued to]            
  28. ~supplier->cust_no~
  29. ~supplier->acct_no~
  30. ~pad(aSup1,35)~ 
  31.  ~pad(aSup2,35)~
  32.  ~aSup3~
  33. ~pad(aSup4,35)~ 
  34.                                   
  35. [weight]
  36. [required]
  37. [f.o.b.   ]
  38. ~po->weight~
  39. ~pad(dtoc(po->required),10)~ 
  40. ~fob->fob_terms~  
  41. [TERMS  ]
  42. [         ]
  43. [supply cd]
  44. [ship via]
  45. ~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  
  46.            
  47. ~po->supply_cd~    
  48. ~po->ship_via~                      
  49. Please supply the articles and/or services listed below.
  50. comments-> ~po->comments~
  51. item no./description
  52.  qty         
  53.  price         
  54.  extended      
  55.  ~po2->item~  ~inv->part_no~~po2->qty~ ~inv->unit~  ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
  56. ~-~       ~trim(inv->manufact)~
  57.        ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  58.                                                            
  59. [sub-total]
  60.                                                            
  61. ~str(subtotal,15,2)~
  62.                                                            
  63. ~padc(upper(trim(M_NAME)),80)~
  64. page ~ltrim(str(page,4))~                                                  [order no.-> ~po-> (recno())~]
  65.                                (continuation)
  66. item no./description
  67.  qty         
  68.  price         
  69.  extended      
  70.                                                       taxable   ~po->taxable~
  71.                                                   non-taxable   ~po->non_taxabl~
  72.                                                  ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax   "+str(po->tax1,13,2))~
  73.                                                  ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax   "+str(po->tax2,13,2))~
  74.                                                      shipping   ~po->freight~
  75. [signature]
  76. [date]
  77. [total est. cost]
  78.                             
  79.              
  80.                
  81.     ~po->total~
  82. ~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~
  83. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  84.                     +===================================+
  85.                     |          PURCHASE ORDER           |
  86.                     +===================================+
  87. +------------[issued by]-------------+  +------------[important]-------------+
  88. |~PAD(M_name,35)~ |  |Our purchase order number must      |
  89. |~PAD(M_adr1,35)~ |  |appear on all invoices, cases,      |
  90. |~PAD(M_adr2,35)~ |  |packing lists and correspondence.   |
  91. |~PAD(M_adr3,35)~ |  |                                    |
  92. +----[contact]------+--[telephone]---+  +--[order no.]----+--[issue date]----+
  93. |~po->contact~ | ~PAD(M_phone,14)~ |  | ~padl(ltrim(str(po->(RECNO()))),7,"0")~         |  ~pad(dtoc(po->issued),10)~      |
  94. +-------------------+----------------+  +[customer no.]---+[cust. acct. no.]-+
  95. +-           [issued to]            -+    |~supplier->cust_no~|~supplier->acct_no~|
  96. |~pad(aSup1,35)~ |  +-----------------+------------------+
  97.  ~pad(aSup2,35)~
  98.  ~aSup3~
  99. |~pad(aSup4,35)~ |
  100. +-                                  -+
  101. +[weight]-----+[required]-+[f.o.b.   ]---------------------------------------+
  102. |~po->weight~|~pad(dtoc(po->required),10)~ |~fob->fob_terms~  |
  103. +[TERMS  ]----+[         ]+[supply cd]+[ship via]----------------------------+
  104. |~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  |           |~po->supply_cd~    |~po->ship_via~                      |
  105. +-------------+-----------+-----------+--------------------------------------+
  106. Please supply the articles and/or services listed below.
  107. comments-> ~po->comments~
  108. +----+--------------------+-------------+----+---------------+---------------+
  109. |item|item no./description| qty         |unit| price         | extended      |
  110. +----+--------------------+-------------+----+---------------+---------------+
  111.  ~po2->item~  ~inv->part_no~~po2->qty~ ~inv->unit~  ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
  112. ~-~       ~trim(inv->manufact)~
  113.        ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  114.                                                            
  115. +---[sub-total]---+
  116.                                                            |  
  117. ~str(subtotal,15,2)~|
  118.                                                            
  119. +-----------------+
  120. ~padc(upper(trim(M_NAME)),80)~
  121. page ~ltrim(str(page,4))~                                                  [order no.-> ~po-> (recno())~]
  122.                                (continuation)
  123. +----+--------------------+-------------+----+---------------+---------------+
  124. |item|item no./description| qty         |unit| price         | extended      |
  125. +----+--------------------+-------------+----+---------------+---------------+
  126.                                                       taxable   ~po->taxable~
  127.                                                   non-taxable   ~po->non_taxabl~
  128.                                                  ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax   "+str(po->tax1,13,2))~
  129.                                                  ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax   "+str(po->tax2,13,2))~
  130.                                                      shipping   ~po->freight~
  131. +-------[signature]----------+---[date]----+---------------+[total est. cost]+
  132. |                            |             |               |    ~po->total~|
  133. +----------------------------+-------------+---------------+-----------------+ 
  134. ~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~
  135. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                                I N V O I C E
  136.              
  137.              
  138. ~padc(upper(m_name),48)~ 
  139.              
  140.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  141.               ~padc(M_phone,48)~
  142. [sold to]
  143. [ship to]
  144. ~PAD(customer->name,35)~ 
  145. ~PAD(aShip2[1],35)~ 
  146. ~PAD(customer->company,35)~ 
  147. ~PAD(aShip2[2],35)~ 
  148. ~PAD(customer->address,35)~ 
  149. ~PAD(aShip2[3],35)~ 
  150. ~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ 
  151. ~PAD(aShip2[4],35)~ 
  152. [customer id]
  153. [telephone]
  154. [         ]
  155. [          ]
  156.     ~padl(pos->cust_id,9,"0")~      
  157. ~customer->home_phone~    
  158.                  
  159.                   
  160. [INVOICE]
  161. [date]
  162. [trx type]
  163. [sales rep]
  164.  ~pos->(recno())~   
  165. ~pad(dtoc(pos->date),10)~ 
  166. ~pos->trx_type~      
  167. ~pos->sales_rep~ ~sale_rep->name~ 
  168. [ship date]
  169. [weight]
  170. [ship via]
  171. [terms]
  172. ~pad(dtoc(pos->ship_date),10)~ 
  173. ~pos->weight~ 
  174. ~pos->ship_via~
  175. ~Pad(posterms(),35)~
  176. [cust PO]
  177. [f.o.b.]
  178. ~pos->cust_po_no~   
  179. ~fob->fob_terms~    
  180. item no./description 
  181. quantity      
  182. unit cost    
  183. extended       
  184. ~pos_item->item~   ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
  185. ~-~      ~trim(inv->manufact)~
  186.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  187.                   * * * continued on page ~str(page+1,4)~ * * *
  188. ~padc(upper(trim(M_NAME)),80)~
  189. page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
  190.                                (continuation)
  191. item no./description 
  192. quantity      
  193. unit cost    
  194. extended       
  195. [payment]
  196. [charges]
  197. ~pad(aPaid[1],42)~
  198.         taxable
  199.       ~pos->taxable~
  200. ~pad(aPaid[2],42)~
  201.     non-taxable
  202.       ~pos->non_taxabl~
  203. ~pad(aPaid[3],42)~
  204. ~if(empty(pos->tax1_rate),space(12)+"
  205. "+space(17),"("+str(pos->tax
  206. 1_rate,5,2)+"%) tax
  207.    "+str(tax1(),14,2))~
  208. ~pad(aPaid[4],42)~
  209. ~if(empty(pos->tax2_rate),space(12)+"
  210. "+space(17),"("+str(pos->tax
  211. 2_rate,5,2)+"%) tax
  212.    "+str(tax2(),14,2))~
  213. ~pad(aPaid[5],42)~
  214.        shipping
  215.       ~pos->freight~
  216. ~pad(aPaid[6],42)~
  217.       T O T A L
  218.   ~str(postotal(),15,2)~
  219. [amount tendered]
  220. [change due]
  221. [PAYMENT DUE]
  222. [B A 
  223. L A N C E]
  224. ~str(amt_tender(),15,2)~   
  225. ~str(change(),11,2)~            
  226. ~pad(if(empty(balance()),"N/A",pos->net_due),10)~     
  227. ~str(balance(),15,2)~
  228. ~if(empty(balance()),"","Please pay from this Invoice:  No 
  229. statement will be issued.")~
  230. ~if(!empty(pos->savings)," Y O U R  S A V I N G S -> 
  231. $"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1
  232. ()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","
  233. ")," T H A N K  Y O U  F O R  Y O U R  O R D E R !")~
  234. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                                I N V O I C E
  235.              +=================================================+
  236.              |~padc(upper(m_name),48)~ |
  237.              +=================================================+
  238.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  239.               ~padc(M_phone,48)~
  240. +------------[sold to]---------------+  +------------[ship to]---------------+
  241. |~PAD(customer->name,35)~ |  |~PAD(aShip2[1],35)~ |
  242. |~PAD(customer->company,35)~ |  |~PAD(aShip2[2],35)~ |
  243. |~PAD(customer->address,35)~ |  |~PAD(aShip2[3],35)~ |
  244. |~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ |  |~PAD(aShip2[4],35)~ |
  245. +--[customer id]----+--[telephone]---+  +--[         ]----+--[          ]----+
  246. |    ~padl(pos->cust_id,9,"0")~      |~customer->home_phone~    |  |                 |                  |
  247. +-------------------+----------------+  +-----------------+------------------+
  248. +[INVOICE]--+[date]-----+[trx type]+[sales rep]------------------------------+
  249. | ~pos->(recno())~   |~pad(dtoc(pos->date),10)~ |~pos->trx_type~      |~pos->sales_rep~ ~sale_rep->name~ |
  250. +[ship date]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
  251. |~pad(dtoc(pos->ship_date),10)~ |~pos->weight~ |~pos->ship_via~|~Pad(posterms(),35)~|
  252. +[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
  253. |~pos->cust_po_no~   |~fob->fob_terms~    |
  254. +-----------------------+----------------------------------------------------+
  255. +----+---------------------+--------------+----+-------------+---------------+
  256. |item|item no./description |quantity      |unit|unit cost    |extended       |
  257. +----+---------------------+--------------+----+-------------+---------------+
  258. ~pos_item->item~   ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
  259. ~-~      ~trim(inv->manufact)~
  260.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  261.                   * * * continued on page ~str(page+1,4)~ * * *
  262. ~padc(upper(trim(M_NAME)),80)~
  263. page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
  264.                                (continuation)
  265. +----+---------------------+--------------+----+-------------+---------------+
  266. |item|item no./description |quantity      |unit|unit cost    |extended       |
  267. +----+---------------------+--------------+----+-------------+---------------+
  268. +[payment]---------------------------------+[charges]------+------
  269. -----------+
  270. |~pad(aPaid[1],42)~|        taxable|      ~pos->taxable~|
  271. |~pad(aPaid[2],42)~|    non-taxable|      ~pos->non_taxabl~| 
  272. |~pad(aPaid[3],42)~|   
  273. ~if(empty(pos->tax1_rate),space(12)+"|"+space(17),"("+str(pos->tax
  274. 1_rate,5,2)+"%) tax|   "+str(tax1(),14,2))~|
  275. |~pad(aPaid[4],42)~|   
  276. ~if(empty(pos->tax2_rate),space(12)+"|"+space(17),"("+str(pos->tax
  277. 2_rate,5,2)+"%) tax|   "+str(tax2(),14,2))~|
  278. |~pad(aPaid[5],42)~|       shipping|      ~pos->freight~|
  279. |~pad(aPaid[6],42)~|      T O T A L|  ~str(postotal(),15,2)~|
  280. +[amount tendered]-+[change due]-----------+[PAYMENT DUE]--+[B A 
  281. L A N C E]--+
  282. |~str(amt_tender(),15,2)~   |~str(change(),11,2)~            
  283. |~pad(if(empty(balance()),"N/A",pos->net_due),10)~     |  
  284. ~str(balance(),15,2)~|
  285. +------------------+-----------------------+---------------+------
  286. -----------+ 
  287. ~if(empty(balance()),"","Please pay from this Invoice:  No 
  288. statement will be issued.")~
  289. ~if(!empty(pos->savings)," Y O U R  S A V I N G S -> 
  290. $"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1
  291. ()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","
  292. ")," T H A N K  Y O U  F O R  Y O U R  O R D E R !")~
  293. ~printcode("INIT")~~printcode("landscape")~~PRINTCODE("LINES6")~~PRINTCODE("PITCH10")~
  294. ~aShip2[1]~
  295. ~aship2[2]~
  296. ~aship2[3]~
  297. ~aship2[4]~
  298. ~printcode("init")~~printcode("landscape")~~printcode("lines6")~~printcode("pitch10")~
  299. ~-~~customer->name~
  300. ~-~~customer->company~
  301. ~-~~customer->address~
  302. ~-~~trim(customer->city)+", "+customer->state+"  "+customer->zip~
  303. ~-~~upper(customer->country)~
  304. ~printcode("portrait")~
  305. ~Printcode("INIT")~~printcode("pitch10")~~printcode("lines6")~                                  Q U O T E
  306.              
  307.              
  308. ~padc(upper(m_name),48)~ 
  309.              
  310.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  311.               ~padc(M_phone,48)~
  312. [sold to]
  313. [ship to]
  314. ~PAD(customer->name,35)~ 
  315. ~PAD(aShip2[1],35)~ 
  316. ~PAD(customer->company,35)~ 
  317. ~PAD(aShip2[2],35)~ 
  318. ~PAD(customer->address,35)~ 
  319. ~PAD(aShip2[3],35)~ 
  320. ~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ 
  321. ~PAD(aShip2[4],35)~ 
  322. [customer id]
  323. [telephone]
  324. [         ]
  325. [          ]
  326.     ~padl(quote->cust_id,9,"0")~      
  327. ~customer->home_phone~    
  328.                  
  329.                   
  330. [QUOTE #]
  331. [date]
  332. [        ]
  333. [sales rep]
  334.  ~Quote->(recno())~   
  335. ~pad(dtoc(Quote->date),10)~ 
  336.           
  337. ~quote->sales_rep~ ~sale_rep->name~ 
  338. [         ]
  339. [weight]
  340. [ship via]
  341. [terms]
  342.            
  343. ~quote->weight~ 
  344. ~quote->ship_via~
  345. ~Pad(qterms(),35)~
  346. [cust PO]
  347. [f.o.b.]
  348. ~quote->cust_po_no~   
  349. ~fob->fob_terms~    
  350. item no./description 
  351. quantity        
  352. price          
  353. extended        
  354.   ~inv->part_no~  ~quote2->order_qty~ ~inv->unit~   ~quote2->price~ ~str(quote2->order_qty*quote2->price,16,2)~
  355. ~-~      ~trim(inv->manufact)~
  356.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  357.                   * * * continued on page ~str(page+1,4)~ * * *
  358. ~padc(upper(trim(M_NAME)),80)~
  359. page ~ltrim(str(page,4))~                                                [QUOTE no.-> ~quote-> (recno())~]
  360.                                (continuation)
  361. item no./description 
  362. quantity        
  363. price          
  364. extended        
  365. [       
  366. [charges]
  367.                                           
  368.         taxable
  369.       
  370. ~quote->taxable~
  371.                                           
  372.     non-taxable
  373.       
  374. ~quote->non_taxabl~
  375.                                           
  376. ~if(empty(quote->tax1_rate),space(12)+"
  377. "+space(17),"("+str(quote-
  378. >tax1_rate,5,2)+"%) tax
  379.    "+str(qtax1(),14,2))~
  380.                                           
  381. ~if(empty(quote->tax2_rate),space(12)+"
  382. "+space(17),"("+str(quote-
  383. >tax2_rate,5,2)+"%) tax
  384.    "+str(qtax2(),14,2))~
  385.                                           
  386.        shipping
  387.       
  388. ~quote->freight~
  389.                                           
  390.       T O T A L
  391. ~str(qtotal(),15,2)~
  392. ~if(!empty(quote->savings)," Y O U R  S A V I N G S -> 
  393. $"+STR(quote->SAVINGS)+IF(!EMPTY(qtotal()),str((1-(qtotal()-qtax1(
  394. )-qtax2())/(quote->savings+qtotal()-qtax1()-qtax2()))*100,6,2)+"%"
  395. ,"")," T H A N K  Y O U  F O R  Y O U R  B U S I N E S S !")~
  396. ~Printcode("INIT")~~printcode("pitch10")~~printcode("lines6")~                                  Q U O T E
  397.              +=================================================+
  398.              |~padc(upper(m_name),48)~ |
  399.              +=================================================+
  400.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  401.               ~padc(M_phone,48)~
  402. +------------[sold to]---------------+  +------------[ship to]---------------+
  403. |~PAD(customer->name,35)~ |  |~PAD(aShip2[1],35)~ |
  404. |~PAD(customer->company,35)~ |  |~PAD(aShip2[2],35)~ |
  405. |~PAD(customer->address,35)~ |  |~PAD(aShip2[3],35)~ |
  406. |~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ |  |~PAD(aShip2[4],35)~ |
  407. +--[customer id]----+--[telephone]---+  +--[         ]----+--[          ]----+
  408. |    ~padl(quote->cust_id,9,"0")~      |~customer->home_phone~    |  |                 |                  |
  409. +-------------------+----------------+  +-----------------+------------------+
  410. +[QUOTE #]--+[date]-----+[        ]+[sales rep]------------------------------+
  411. | ~Quote->(recno())~   |~pad(dtoc(Quote->date),10)~ |          |~quote->sales_rep~ ~sale_rep->name~ |
  412. +[         ]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
  413. |           |~quote->weight~ |~quote->ship_via~|~Pad(qterms(),35)~|
  414. +[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
  415. |~quote->cust_po_no~   |~fob->fob_terms~    |
  416. +-----------------------+----------------------------------------------------+
  417. +---------------------+----------------+----+---------------+----------------+
  418. |item no./description |quantity        |unit|price          |extended        |
  419. +---------------------+----------------+----+---------------+----------------+
  420.   ~inv->part_no~  ~quote2->order_qty~ ~inv->unit~   ~quote2->price~ ~str(quote2->order_qty*quote2->price,16,2)~
  421. ~-~      ~trim(inv->manufact)~
  422.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  423.                   * * * continued on page ~str(page+1,4)~ * * *
  424. ~padc(upper(trim(M_NAME)),80)~
  425. page ~ltrim(str(page,4))~                                                [QUOTE no.-> ~quote-> (recno())~]
  426.                                (continuation)
  427. +---------------------+----------------+----+---------------+----------------+
  428. |item no./description |quantity        |unit|price          |extended        |
  429. +---------------------+----------------+----+---------------+----------------+
  430. +[       
  431. ]---------------------------------+[charges]------+---------------
  432. |                                          |        taxable|      
  433. ~quote->taxable~|
  434. |                                          |    non-taxable|      
  435. ~quote->non_taxabl~| 
  436. |                                          |   
  437. ~if(empty(quote->tax1_rate),space(12)+"|"+space(17),"("+str(quote-
  438. >tax1_rate,5,2)+"%) tax|   "+str(qtax1(),14,2))~|
  439. |                                          |   
  440. ~if(empty(quote->tax2_rate),space(12)+"|"+space(17),"("+str(quote-
  441. >tax2_rate,5,2)+"%) tax|   "+str(qtax2(),14,2))~|
  442. |                                          |       shipping|      
  443. ~quote->freight~|
  444. |                                          |      T O T A L|  
  445. ~str(qtotal(),15,2)~|
  446. +------------------------------------------+---------------+------
  447. -----------+ 
  448. ~if(!empty(quote->savings)," Y O U R  S A V I N G S -> 
  449. $"+STR(quote->SAVINGS)+IF(!EMPTY(qtotal()),str((1-(qtotal()-qtax1(
  450. )-qtax2())/(quote->savings+qtotal()-qtax1()-qtax2()))*100,6,2)+"%"
  451. ,"")," T H A N K  Y O U  F O R  Y O U R  B U S I N E S S !")~
  452. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  453.                     
  454.                     
  455.         REQUEST FOR QUOTE          
  456.                     
  457.                      
  458. [issued by]
  459. [important]
  460. ~PAD(M_name,35)~ 
  461. Our Quote number must               
  462. ~PAD(M_adr1,35)~ 
  463. appear on all correspondence.       
  464. ~PAD(M_adr2,35)~ 
  465.                                     
  466. ~PAD(M_adr3,35)~ 
  467.                                     
  468. [contact]
  469. [telephone]
  470. [quote no.]
  471. [issue date]
  472. ~po->contact~ 
  473.  ~PAD(M_phone,14)~ 
  474.     ~padl(ltrim(str(po->(RECNO()))),7,"0")~      
  475.   ~pad(date(),10)~      
  476.            [issued to]            
  477. ~pad(aSup1,35)~ 
  478.  ~aSup2~
  479.  ~aSup3~
  480. ~pad(aSup4,35)~ 
  481.                                   
  482. [weight]
  483. [required]
  484. [f.o.b.   ]
  485. ~po->weight~
  486. ~pad(po->required,10)~ 
  487. ~fob->fob_terms~  
  488. [TERMS  ]
  489. [EXP DATE ]
  490. [supply cd]
  491. [ship via]
  492.              
  493.            
  494. ~rfq->supply_cd~    
  495. ~po->ship_via~                      
  496. ~Printcode("COMP")~Please quote the articles and/or services listed below.  Include freight, taxes and other charges.~Printcode("NOCOMP")~
  497. comments-> ~po->comments~
  498. item no./description
  499.  qty         
  500.  price         
  501.  extended      
  502.  ~po2->item~  ~if(empty(supply2->part_no),inv->part_no,supply2->part_no)~~po2->qty~ ~inv->unit~
  503. ~-~       ~trim(inv->manufact)~
  504.        ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  505. ~padc(upper(trim(M_NAME)),80)~
  506. page ~ltrim(str(page,4))~                                         
  507.          [quote no.-> ~po-> (recno())~]
  508.                                (continuation)
  509. item no./description
  510.  qty         
  511.  price         
  512. extended      
  513.                                                     taxable
  514.                                                 non-taxable
  515.                                               (      %) tax
  516.                                               (      %) tax   
  517.                                                    shipping   
  518. [signature]
  519. [date]
  520. [est. 
  521. delivery]
  522. [total est. cost]
  523.                             
  524.              
  525.                
  526.       
  527.            
  528. ~Printcode("INIT")~
  529.                     +===================================+
  530.                     |        REQUEST FOR QUOTE          |
  531.                     +===================================+
  532. +------------[issued by]-------------+  +------------[important]-------------+
  533. |~PAD(M_name,35)~ |  |Our Quote number must               |
  534. |~PAD(M_adr1,35)~ |  |appear on all correspondence.       |
  535. |~PAD(M_adr2,35)~ |  |                                    |
  536. |~PAD(M_adr3,35)~ |  |                                    |
  537. +----[contact]------+--[telephone]---+  +--[quote no.]----+--[issue date]----+
  538. |~po->contact~ | ~PAD(M_phone,14)~ |  |    ~padl(ltrim(str(po->(RECNO()))),7,"0")~      |  ~pad(date(),10)~      |
  539. +-------------------+----------------+  +-----------------+------------------+
  540. +-           [issued to]            -+
  541. |~pad(aSup1,35)~ |
  542.  ~aSup2~
  543.  ~aSup3~
  544. |~pad(aSup4,35)~ |
  545. +-                                  -+
  546. +[weight]-----+[required]-+[f.o.b.   ]---------------------------------------+
  547. |~po->weight~|~pad(po->required,10)~ |~fob->fob_terms~  |
  548. +[TERMS  ]----+[EXP DATE ]+[supply cd]+[ship via]----------------------------+
  549. |             |           |~rfq->supply_cd~    |~po->ship_via~                      |
  550. +-------------+-----------+-----------+--------------------------------------+
  551. ~Printcode("COMP")~Please quote the articles and/or services listed below.  Include freight, taxes and other charges.~Printcode("NOCOMP")~
  552. comments-> ~po->comments~
  553. +----+--------------------+-------------+----+---------------+---------------+
  554. |item|item no./description| qty         |unit| price         | extended      |
  555. +----+--------------------+-------------+----+---------------+---------------+
  556.  ~po2->item~  ~if(empty(supply2->part_no),inv->Part_no,supply2->part_no)~~po2->qty~ ~inv->unit~
  557. ~-~       ~trim(inv->manufact)~
  558.        ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  559. ~padc(upper(trim(M_NAME)),80)~
  560. page ~ltrim(str(page,4))~                                                  [quote no.-> ~po-> (recno())~]
  561.                                (continuation)
  562. +----+--------------------+-------------+----+---------------+---------------+
  563. |item|item no./description| qty         |unit| price         | extended      |
  564. +----+--------------------+-------------+----+---------------+---------------+
  565.                                                     taxable
  566.                                                 non-taxable
  567.                                               (      %) tax
  568.                                               (      %) tax   
  569.                                                    shipping   
  570. +-------[signature]----------+---[date]----+[est. delivery]+[total est. cost]+
  571. |                            |             |               |                 |
  572. +----------------------------+-------------+---------------+-----------------+ 
  573. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                           P A C K I N G  L I S T
  574.              
  575.              
  576. ~padc(upper(m_name),48)~ 
  577.              
  578.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  579.               ~padc(M_phone,48)~
  580. [sold to]
  581. [ship to]
  582. ~PAD(customer->name,35)~ 
  583. ~PAD(aShip2[1],35)~ 
  584. ~PAD(customer->company,35)~ 
  585. ~PAD(aShip2[2],35)~ 
  586. ~PAD(customer->address,35)~ 
  587. ~PAD(aShip2[3],35)~ 
  588. ~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ 
  589. ~PAD(aShip2[4],35)~ 
  590. [customer id]
  591. [telephone]
  592. [         ]
  593. [          ]
  594.     ~padl(pos->cust_id,9,"0")~      
  595. ~customer->home_phone~    
  596.                  
  597.                   
  598. [INVOICE]
  599. [date]
  600. [trx type]
  601. [sales rep]
  602.  ~pos->(recno())~   
  603. ~pad(dtoc(pos->date),10)~ 
  604. ~pos->trx_type~      
  605. ~pos->sales_rep~ ~sale_rep->name~ 
  606. [ship date]
  607. [weight]
  608. [ship via]
  609. [terms]
  610. ~pad(dtoc(dFor),10)~ 
  611. ~pos->weight~ 
  612. ~pos->ship_via~
  613. ~Pad(posterms(),35)~
  614. [cust PO]
  615. [f.o.b.]
  616. ~pos->cust_po_no~   
  617. ~fob->fob_terms~    
  618. item no./description 
  619. ordered       
  620. shipped       
  621. backorder     
  622. ~pos_item->item~   ~inv->part_no~ 
  623. ~pos_item->order_qty~~ship->qty_shipd~ ~inv->unit~ 
  624. ~ship->back_order~
  625. ~-~      ~trim(inv->manufact)~
  626.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  627.                   * * * continued on page ~str(page+1,4)~ * * *
  628. ~padc(upper(trim(M_NAME)),80)~
  629. page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
  630.                                (continuation)
  631. item no./description 
  632. ordered       
  633. shipped       
  634. backorder     
  635. Thank You For Your Business!
  636. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                           P A C K I N G  L I S T
  637.              +=================================================+
  638.              |~padc(upper(m_name),48)~ |
  639.              +=================================================+
  640.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  641.               ~padc(M_phone,48)~
  642. +------------[sold to]---------------+  +------------[ship to]---------------+
  643. |~PAD(customer->name,35)~ |  |~PAD(aShip2[1],35)~ |
  644. |~PAD(customer->company,35)~ |  |~PAD(aShip2[2],35)~ |
  645. |~PAD(customer->address,35)~ |  |~PAD(aShip2[3],35)~ |
  646. |~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ |  |~PAD(aShip2[4],35)~ |
  647. +--[customer id]----+--[telephone]---+  +--[         ]----+--[          ]----+
  648. |    ~padl(pos->cust_id,9,"0")~      |~customer->home_phone~    |  |                 |                  |
  649. +-------------------+----------------+  +-----------------+------------------+
  650. +[INVOICE]--+[date]-----+[trx type]+[sales rep]------------------------------+
  651. | ~pos->(recno())~   |~pad(dtoc(pos->date),10)~ |~pos->trx_type~      |~pos->sales_rep~ ~sale_rep->name~ |
  652. +[ship date]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
  653. |~pad(dtoc(dFor),10)~ |~pos->weight~ |~pos->ship_via~|~Pad(posterms(),35)~|
  654. +[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
  655. |~pos->cust_po_no~   |~fob->fob_terms~    |
  656. +-----------------------+----------------------------------------------------+
  657. +----+---------------------+--------------+--------------+----+--------------+
  658. |item|item no./description |ordered       |shipped       |unit|backorder     |
  659. +----+---------------------+--------------+--------------+----+--------------+
  660. ~pos_item->item~   ~inv->part_no~ 
  661. ~pos_item->order_qty~~ship->qty_shipd~ ~inv->unit~ 
  662. ~ship->back_order~
  663. ~-~      ~trim(inv->manufact)~
  664.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  665.                   * * * continued on page ~str(page+1,4)~ * * *
  666. ~padc(upper(trim(M_NAME)),80)~
  667. page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
  668.                                (continuation)
  669. +----+---------------------+--------------+--------------+----+--------------+
  670. |item|item no./description |ordered       |shipped       |unit|backorder     |
  671. +----+---------------------+--------------+--------------+----+--------------+
  672. Thank You For Your Business!
  673. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  674.                     
  675.                     
  676.           PURCHASE ORDER           
  677.                     
  678.                      
  679. [issued by]
  680. [important]
  681. ~PAD(M_name,35)~ 
  682. Our purchase order number must      
  683. ~PAD(M_adr1,35)~ 
  684. appear on all invoices, cases,      
  685. ~PAD(M_adr2,35)~ 
  686. packing lists and correspondence.   
  687. ~PAD(M_adr3,35)~ 
  688.                                     
  689. [contact]
  690. [telephone]
  691. [order no.]
  692. [issue date]
  693. ~po->contact~ 
  694.  ~PAD(M_phone,14)~ 
  695.  ~padl(ltrim(str(po->(RECNO()))),7,"0")~         
  696.   ~pad(dtoc(po->issued),10)~      
  697. [customer no.]
  698. [cust. acct. no.]
  699.            [issued to]            
  700. ~supplier->cust_no~
  701. ~supplier->acct_no~
  702. ~pad(aSup1,35)~ 
  703.  ~pad(aSup2,35)~
  704.  ~aSup3~
  705. ~pad(aSup4,35)~ 
  706.                                   
  707. [weight]
  708. [required]
  709. [f.o.b.   ]
  710. ~po->weight~
  711. ~pad(dtoc(po->required),10)~ 
  712. ~fob->fob_terms~  
  713. [TERMS  ]
  714. [         ]
  715. [supply cd]
  716. [ship via]
  717. ~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  
  718.            
  719. ~po->supply_cd~    
  720. ~po->ship_via~                      
  721. Please supply the articles and/or services listed below.
  722. comments-> ~po->comments~
  723. item no./description
  724.  qty         
  725.  price         
  726.  extended      
  727.  ~po2->item~  ~inv->part_no~~po2->qty~ ~inv->unit~  ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
  728. ~-~       ~trim(inv->manufact)~
  729.        ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  730.        ~schedule()~
  731.                                                            
  732. [sub-total]
  733.                                                            
  734. ~str(subtotal,15,2)~
  735.                                                            
  736. ~padc(upper(trim(M_NAME)),80)~
  737. page ~ltrim(str(page,4))~                                                  [order no.-> ~po-> (recno())~]
  738.                                (continuation)
  739. item no./description
  740.  qty         
  741.  price         
  742.  extended      
  743.                                                       taxable   ~po->taxable~
  744.                                                   non-taxable   ~po->non_taxabl~
  745.                                                  ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax   "+str(po->tax1,13,2))~
  746.                                                  ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax   "+str(po->tax2,13,2))~
  747.                                                      shipping   ~po->freight~
  748. [signature]
  749. [date]
  750. [total est. cost]
  751.                             
  752.              
  753.                
  754.     ~po->total~
  755. ~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~
  756. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                                I N V O I C E
  757.              
  758.              
  759. ~padc(upper(m_name),48)~ 
  760.              
  761.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  762.               ~padc(M_phone,48)~
  763. [sold to]
  764. [ship to]
  765. ~PAD(customer->name,35)~ 
  766. ~PAD(aShip2[1],35)~ 
  767. ~PAD(customer->company,35)~ 
  768. ~PAD(aShip2[2],35)~ 
  769. ~PAD(customer->address,35)~ 
  770. ~PAD(aShip2[3],35)~ 
  771. ~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ 
  772. ~PAD(aShip2[4],35)~ 
  773. [customer id]
  774. [telephone]
  775. [         ]
  776. [          ]
  777.     ~padl(pos->cust_id,9,"0")~      
  778. ~customer->home_phone~    
  779.                  
  780.                   
  781. [INVOICE]
  782. [date]
  783. [trx type]
  784. [sales rep]
  785.  ~pos->(recno())~   
  786. ~pad(dtoc(pos->date),10)~ 
  787. ~pos->trx_type~      
  788. ~pos->sales_rep~ ~sale_rep->name~ 
  789. [ship date]
  790. [weight]
  791. [ship via]
  792. [terms]
  793. ~pad(dtoc(pos->ship_date),10)~ 
  794. ~pos->weight~ 
  795. ~pos->ship_via~
  796. ~Pad(posterms(),35)~
  797. [cust PO]
  798. [f.o.b.]
  799. ~pos->cust_po_no~   
  800. ~fob->fob_terms~    
  801. item no./description 
  802. quantity      
  803. unit cost    
  804. extended       
  805. ~pos_item->item~   ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
  806. ~-~      ~trim(inv->manufact)~
  807.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  808.       ~posSchedule(3)~
  809.                   * * * continued on page ~str(page+1,4)~ * * *
  810. ~padc(upper(trim(M_NAME)),80)~
  811. page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
  812.                                (continuation)
  813. item no./description 
  814. quantity      
  815. unit cost    
  816. extended       
  817. [payment]
  818. [charges]
  819. ~pad(aPaid[1],42)~
  820.         taxable
  821.       ~pos->taxable~
  822. ~pad(aPaid[2],42)~
  823.     non-taxable
  824.       ~pos->non_taxabl~
  825. ~pad(aPaid[3],42)~
  826. ~if(empty(pos->tax1_rate),space(12)+"
  827. "+space(17),"("+str(pos->tax
  828. 1_rate,5,2)+"%) tax
  829.    "+str(tax1(),14,2))~
  830. ~pad(aPaid[4],42)~
  831. ~if(empty(pos->tax2_rate),space(12)+"
  832. "+space(17),"("+str(pos->tax
  833. 2_rate,5,2)+"%) tax
  834.    "+str(tax2(),14,2))~
  835. ~pad(aPaid[5],42)~
  836.        shipping
  837.       ~pos->freight~
  838. ~pad(aPaid[6],42)~
  839.       T O T A L
  840.   ~str(postotal(),15,2)~
  841. [amount tendered]
  842. [change due]
  843. [PAYMENT DUE]
  844. [B A 
  845. L A N C E]
  846. ~str(amt_tender(),15,2)~   
  847. ~str(change(),11,2)~            
  848. ~pad(if(empty(balance()),"N/A",pos->net_due),10)~     
  849. ~str(balance(),15,2)~
  850. ~if(empty(balance()),"","Please pay from this Invoice:  No 
  851. statement will be issued.")~
  852. ~if(!empty(pos->savings)," Y O U R  S A V I N G S -> 
  853. $"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1
  854. ()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","
  855. ")," T H A N K  Y O U  F O R  Y O U R  O R D E R !")~
  856. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  857.                     
  858.                     
  859.           PURCHASE ORDER           
  860.                     
  861.                      
  862. [issued by]
  863. [important]
  864. ~PAD(M_name,35)~ 
  865. Our purchase order number must      
  866. ~PAD(M_adr1,35)~ 
  867. appear on all invoices, cases,      
  868. ~PAD(M_adr2,35)~ 
  869. packing lists and correspondence.   
  870. ~PAD(M_adr3,35)~ 
  871.                                     
  872. [contact]
  873. [telephone]
  874. [order no.]
  875. [issue date]
  876. ~po->contact~ 
  877.  ~PAD(M_phone,14)~ 
  878.  ~padl(ltrim(str(po->(RECNO()))),7,"0")~         
  879.   ~pad(dtoc(po->issued),10)~      
  880. [customer no.]
  881. [cust. acct. no.]
  882.            [issued to]            
  883. ~supplier->cust_no~
  884. ~supplier->acct_no~
  885. ~pad(aSup1,35)~ 
  886.  ~pad(aSup2,35)~
  887.  ~aSup3~
  888. ~pad(aSup4,35)~ 
  889.                                   
  890. [weight]
  891. [required]
  892. [f.o.b.   ]
  893. ~po->weight~
  894. ~pad(dtoc(po->required),10)~ 
  895. ~fob->fob_terms~  
  896. [TERMS  ]
  897. [         ]
  898. [supply cd]
  899. [ship via]
  900. ~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  
  901.            
  902. ~po->supply_cd~    
  903. ~po->ship_via~                      
  904. Please supply the articles and/or services listed below.
  905. comments-> ~po->comments~
  906. item no./description
  907.  qty         
  908.  price         
  909.  extended      
  910. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  911.                     +===================================+
  912.                     |          PURCHASE ORDER           |
  913.                     +===================================+
  914. +------------[issued by]-------------+  +------------[important]-------------+
  915. |~PAD(M_name,35)~ |  |Our purchase order number must      |
  916. |~PAD(M_adr1,35)~ |  |appear on all invoices, cases,      |
  917. |~PAD(M_adr2,35)~ |  |packing lists and correspondence.   |
  918. |~PAD(M_adr3,35)~ |  |                                    |
  919. +----[contact]------+--[telephone]---+  +--[order no.]----+--[issue date]----+
  920. |~po->contact~ | ~PAD(M_phone,14)~ |  | ~padl(ltrim(str(po->(RECNO()))),7,"0")~         |  ~pad(dtoc(po->issued),10)~      |
  921. +-------------------+----------------+  +[customer no.]---+[cust. acct. no.]-+
  922. +-           [issued to]            -+  |~supplier->cust_no~|~supplier->acct_no~|
  923. |~pad(aSup1,35)~ |  +-----------------+------------------+
  924.  ~pad(aSup2,35)~
  925.  ~aSup3~
  926. |~pad(aSup4,35)~ |
  927. +-                                  -+
  928. +[weight]-----+[required]-+[f.o.b.   ]---------------------------------------+
  929. |~po->weight~|~pad(dtoc(po->required),10)~ |~fob->fob_terms~  |
  930. +[TERMS  ]----+[         ]+[supply cd]+[ship via]----------------------------+
  931. |~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  |           |~po->supply_cd~    |~po->ship_via~                      |
  932. +-------------+-----------+-----------+--------------------------------------+
  933. Please supply the articles and/or services listed below.
  934. comments-> ~po->comments~
  935. +----+--------------------+-------------+----+---------------+---------------+
  936. |item|item no./description| qty         |unit| price         | extended      |
  937. +----+--------------------+-------------+----+---------------+---------------+
  938.